home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aat.d64 / spin that wheel (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  21KB  |  589 lines
  1. 10 REM *** BECKY SUE PARTON ***
  2. 20 REM *** AUGUST 29, 1986  ***
  3. 30 REM *** SPIN THAT WHEEL  ***
  4. 40 REM *** THIS IS A GUESSING GAME LIKE THE T.V. SHOW 'WHEEL OF FORTUNE'. ***
  5. 100 REM *** TITLE BLOCK SECTION ***
  6. 110 A=RND(0):A=INT(RND(0)*15)+1
  7. 120 POKE 53280,A:POKE 53281,1:PRINT CHR$(142):PRINT CHR$(8)
  8. 130 PRINT"[144]"
  9. 140 PRINT"[147]"
  10. 150 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  11. 160 PRINT" $                                    $"
  12. 170 PRINT" $  SSSSS PPPPP IIIII N   N           $"
  13. 180 PRINT" $  S     P   P   I   NN  N           $"
  14. 190 PRINT" $  SSSSS PPPP    I   N N N           $"
  15. 200 PRINT" $      S P       I   N  NN           $"
  16. 210 PRINT" $  SSSSS P     IIIII N   N           $"
  17. 220 PRINT" $                                    $"
  18. 230 PRINT" $       TTTTT H   H AAAAA TTTTT      $"
  19. 240 PRINT" $         T   H   H A   A   T        $"
  20. 250 PRINT" $         T   HHHHH AAAAA   T        $"
  21. 260 PRINT" $         T   H   H A   A   T        $"
  22. 270 PRINT" $         T   H   H A   A   T        $"
  23. 280 PRINT" $                                    $"
  24. 290 PRINT" $  W   W   W H    H EEEEE EEEEE L    $"
  25. 300 PRINT" $  W   W   W H    H E     E     L    $"
  26. 310 PRINT" $  W   W   W HHHHHH EEEEE EEEEE L    $"
  27. 320 PRINT" $   W W W W  H    H E     E     L    $"
  28. 330 PRINT" $    W   W   H    H EEEEE EEEEE LLLLL$"
  29. 340 PRINT" $                                    $"
  30. 350 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  31. 360 FOR I=1 TO 4000:NEXT I
  32. 500 REM *** INSTRUCTIONS ***
  33. 510 PRINT "[147]"
  34. 520 PRINT"DO YOU WANT INSTRUCTIONS ?"
  35. 530 GET B$:IF B$="" THEN 510
  36. 540 IF B$<>"Y" AND B$<>"N" THEN 530
  37. 550 IF B$="N" THEN  GOTO 1500
  38. 560 PRINT CHR$(14):PRINT CHR$(8):PRINT"[147]"
  39. 570 PRINT"    '[211][208][201][206][160][212][200][193][212][160][215][200][197][197][204]' [201][206][211][212][210][213][195][212][201][207][206][211][144]":PRINT
  40. 580 PRINT"   [212]HE OBJECT OF THIS GAME IS TO EARN   MONEY BY GUESSING THE LETTERS";
  41. 590 PRINT" IN A WORD PUZZLE.  [207]NLY THE PLAYER SOLVING THE    PUZZLE WILL RETAIN ";
  42. 600 PRINT"THE MONEY AQUIRED    DURING THAT PUZZLE.":PRINT
  43. 610 PRINT"   [212]HE PUZZLES WILL CONSIST OF PHRASES, PERSONS, PLACES, EVENTS, T";
  44. 620 PRINT"HINGS, TITLES,OR FICTIONAL CHARACTERS.  [193] GAME  WILL  CONSIST OF THR";
  45. 630 PRINT"EE PUZZLES, BUT THE PLAYERTHAT HAS AQUIRED THE MOST MONEY [160]WILL   PLA";
  46. 640 PRINT"Y A BONUS ROUND FOR A SPECIAL PRIZE.":PRINT
  47. 650 PRINT"   [212]HE GAME IS STARTED BY ENTERING THE  NUMBER OF PLAYERS (0 TO 4) ";
  48. 660 PRINT"AND THEN     ENTERING THEIR NAMES IN THE DESIRED     PLAYING ORDER.  [212]HIS";
  49. 670 PRINT" ORDER WILL ROTATE  WITH EACH NEW PUZZLE.":PRINT:PRINT
  50. 680 PRINT"        PRESS A KEY TO CONTINUE[146]"
  51. 690 GET C$:IF C$="" THEN 690
  52. 700 PRINT"[147]"
  53. 710 PRINT"   [207]NLY THREE SELECTIONS ARE AVAILABLE:":PRINT
  54. 720 PRINT"1. [211][208][201][206][160][212][200][197][160][215][200][197][197][204] --- [197]NTER A [211][146] TO STARTTHE WHEEL, AND THEN PRESS";
  55. 730 PRINT" ANY KEY TO    STOP THE WHEEL.":PRINT
  56. 740 PRINT"2. [193][206][211][215][197][210][160][212][200][197][160][208][213][218][218][204][197] --- [197]NTER AN [193][146] AND THEN ENTER THE PUZZLE SOL";
  57. 750 PRINT"UTION.":PRINT
  58. 760 PRINT"3. [194][213][217][160][193][160][214][207][215][197][204] --- [197]NTER A [194][146] AND THEN   ENTER THE VOWEL.  [206]OTE: [212]HE";
  59. 770 PRINT" PLAYER MUST HAVE $250 IN HIS ACCOUNT BEFORE HE CAN  BUY A VOWEL.":PRINT
  60. 780 PRINT"   [201]F SPIN IS SELECTED, THE 'VALUE' OF  YOUR SPIN WILL BE DISPLAYED AN";
  61. 790 PRINT"D WILL    DETERMINE YOUR NEXT STEP.  [212]HE FOUR     POSSIBILE 'VALUES' ARE:"
  62. 800 PRINT
  63. 810 PRINT"1. [194][193][206][203][210][213][208][212] --- [212]HE PLAYER LOSES ALL OF HIS MONEY EARNED FOR THE ";
  64. 820 PRINT"CURRENT PUZZLE AND IT IS THE NEXT PLAYERS TURN.":PRINT
  65. 830 PRINT"        PRESS A KEY TO CONTINUE[146]";
  66. 840 GET D$:IF D$="" THEN 840
  67. 850 PRINT"[147]"
  68. 860 PRINT"2. [204][207][207][211][197][160][193][160][212][213][210][206] --- [212]HE PLAYER RETAINS  HIS MONEY, BUT IT IS THE NEXT";
  69. 870 PRINT" PLAYERS   TURN.":PRINT
  70. 880 PRINT"3. [198][210][197][197][160][211][208][201][206] --- [212]HE PLAYER IS CREDITED WITH A 'FREE SPIN' WHICH CAN";
  71. 890 PRINT" BE USED ANYTIME HE HAS LOST HIS TURN.  [212]HE 'FREE   SPIN' CAN BE ";
  72. 900 PRINT"CARRIED OVER TO THE NEXT   PUZZLE.  [212]HE WHEEL WILL THEN SPIN AGAIN AND";
  73. 910 PRINT" LAND ON ANOTHER 'VALUE'.":PRINT
  74. 920 PRINT"4. [193][160][196][207][204][204][207][210][160][214][193][204][213][197][160]($100 [212][207] $5000) ---   [212]HE PLAYER MUST ENTER A ";
  75. 930 PRINT"CONSONANT AND   EACH OCCURRANCE OF IT IN THE PUZZLE     EARNS HIM THE ";
  76. 940 PRINT"INDICATED DOLLAR VALUE.   [212]HE AVAILABLE LETTERS WILL BE DISPLAYED AND";
  77. 950 PRINT" IF A LETTER IS REPEATED, THE PLAYER LOSES HIS TURN.  [201]F THE LETTER";
  78. 960 PRINT" IS NOT INTHE PUZZLE, IT WILL BE THE NEXT PLAYERS TURN.  [193]FTER A ";
  79. 970 PRINT"CORRECT 'GUESS', THE     PLAYER CAN MAKE ANOTHER SELECTION;      SPIN, AN";
  80. 980 PRINT"SWER, OR BUY A VOWEL.":PRINT
  81. 990 PRINT"        PRESS A KEY TO CONTINUE[146]";
  82. 1000 GET E$:IF E$="" THEN 1000
  83. 1010 PRINT"[147]"
  84. 1020 PRINT"   [201]F ANSWER THE PUZZLE IS SELECTED,    ENTERING THE CORRECT ANSWER ";
  85. 1030 PRINT"WILL EARN   THAT PLAYER A WIN.  [193] WRONG ANSWER WILL CAUSE A LOST TURN";
  86. 1040 PRINT", AND IT WILL BE THE   NEXT PLAYERS TURN.":PRINT:PRINT
  87. 1050 PRINT"   [201]F BUY A VOWEL IS SELECTED, A CORRECTVOWEL ALLOWS THE PLAYER TO";
  88. 1060 PRINT" MAKE ANOTHER SELECTION; SPIN, ANSWER, OR BUY A       VOWEL.  [200]OWEVER, A";
  89. 1070 PRINT" WRONG CHOICE CAUSES ALOST TURN AND IT WILL BE THE NEXT       PLAYERS TU";
  90. 1080 PRINT"RN.  [193] VOWEL SELECTION COSTS  $250 WHETHER THERE IS ONE, SEVERAL, OR
  91. 1090 [153]"NO VOWELS IN THE PUZZLE.":[153]:[153]
  92. 1100 [153]"        PRESS A KEY TO CONTINUEWAIT"
  93. 1110 [161] YI$:[139] YI$[178]"" [167] 1110
  94. 1120 [153]"LOAD"
  95. 1130 [153]"   (null)HE PEEKONUS (null)OUND IS STARTED BY        SELECTING A SPECIAL PRIZE.  (null)HE ";
  96. 1140 [153]"PLAYER  MUST THEN ENTER FIVE CONSONANTS AND ONE VOWEL.  LEFT$E WILL THEN";
  97. 1150 [153]" HAVE ONE MINUTE TO ENTER THE ANSWER.  RIGHT$F A WRONG ANSWER IS GIVEN,";
  98. 1160 [153]" ANOTHER ANSWER CAN BE ENTERED.  ATNCORRECT ANSWER WITHIN ONE MINUTE";
  99. 1170 [153]" WILL   EARN THE PLAYER THE SELECTED PRIZE.  RIGHT$F TOO MUCH TIME IS ";
  100. 1180 [153]"TAKEN OR IF THE ANSWER IS WRONG, THE PLAYER DOES NOT WIN THE   PRIZE.";
  101. 1190 [153]"  ATNN ENTRY MUST BE MADE TO        TERMINATE THE TIMER AND THE GAME.":[153]
  102. 1200 [153]"               LEFT$OPENATNCLR(null)VAL ASCSYS(null)FOR(null) VERIFY!DEF!STOP":[153]:[153]
  103. 1210 [153]:[153]:[153]"        PRESS A KEY TO CONTINUEWAITSTOP"
  104. 1220 [161] UY$:[139] UY$[178]"" [167] 1220
  105. 1230 [153]"LOAD"
  106. 1500 [143] *** SETUP SECTION ***
  107. 1510 K[178]1
  108. 1520 [153] [199](142):[153] [199](8)
  109. 1530 [134] K$(26):[134] G$(40):[134] F$(300):[134] H$(300):[134] G(300)
  110. 1550 [153]""
  111. 1560 [153]"LOAD"
  112. 1570 [153]"HOW MANY PLAYERS (1-4) ?"
  113. 1580 [161] B:[139] B[178]0 [167] 1560
  114. 1590 [139] B[177]4 [167] [153]"TOO MANY PLAYERS":[137] 1560
  115. 1600 [153]""
  116. 1610 [129] I[178]1 [164] B
  117. 1620 [153]"PLAYERS #"I"'S NAME IS:";
  118. 1630 [133] A$(I)
  119. 1640 [130] I
  120. 1650 [141] 4000
  121. 1660 [153]"LOAD"
  122. 2000 [143] *** LOAD PUZZLE DATA ***
  123. 2010 [129] I[178]1 [164] 117
  124. 2020 [135] F$(I),H$(I),G(I)
  125. 2030 [130] I
  126. 2500 [143] *** PLAY GAME ***
  127. 2510 [141] 4500
  128. 2520 [153]"LOAD"
  129. 2530 [153][163]12);"SPIN THAT WHEEL"
  130. 2540 [153]
  131. 2550 H[178][195](H$(C)):I[178]H[173]2:J[178]20[171]I
  132. 2560 [153] [163]J);H$(C)
  133. 2570 [153]
  134. 2580 [129] I[178]1 [164] [195](F$(C))
  135. 2590 [139] G$(I)[178]" " [176] G$(I)[178]"-" [176] G$(I)[178]"'" [167] [153] G$(I);:[137] 2610
  136. 2600 [153]"(null)";
  137. 2610 [130] I
  138. 2620 [153]:[153]
  139. 2630 [153]"PERSON UP = "A$(K)"                "
  140. 2635 [153]
  141. 2640 [129] I[178]1 [164] B
  142. 2650 [139] I[178]K [167] [153]"";
  143. 2660 [153] A$(I);" $";L(I)"CMDWAIT              "
  144. 2670 [130] I
  145. 2680 [153]""
  146. 2690 [153]:[153]"LETTER'S NOT USED":[153]:[153]"        ";
  147. 2700 [129] I[178]1 [164] 26
  148. 2710 [139] K$(I)[178]"*" [167] [153]" ";:[137] 2730
  149. 2720 [153] K$(I);
  150. 2730 [130] I
  151. 2740 [153]:[153]:[153]
  152. 2750 M$[178]""
  153. 2760 [139] G(C)[178]0 [175] AA[178]0 [167] [141] 5500
  154. 2770 [139] G(C)[178]0 [175] AA[179][177]1 [167] [153]"ONON"
  155. 2780 [153]"STOPSWAITPIN THE WHEEL, STOPAWAITNSWER THE PUZZLE, OR   STOPBWAITUY A VOWEL?
  156. 2790 PRINT"                                      "
  157. 2800 PRINT:PRINT"                                     [145][145]"
  158. 2810 PRINT"YOU WANT TO :                         "
  159. 2820 GET I$:IF I$<>"S" AND I$<>"A" AND I$<>"B" THEN 2820
  160. 2830 IF Q=1 AND I$<>"B" AND I$<>"A" THEN 2820
  161. 2840 IF I$<>"A" THEN GOTO 3130
  162. 2850 PRINT"[145][145][145][145]PLEASE TYPE IN WHAT YOU THINK THE PUZZLEIS                ":PRINT
  163. 2860 INPUT"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";J$
  164. 2870 IF J$=F$(C) THEN GOTO 2920
  165. 2880 PRINT"[145]I'M SORRY, THAT'S WRONG":FOR I=1 TO 1520:NEXT I
  166. 2890 IF T(K)<>0 THEN GOSUB 5000
  167. 2900 K=K+1:IF K=B+1 THEN K=1
  168. 2910 PRINT"":GOTO 2630
  169. 2920 PRINT"[147]"
  170. 2930 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  171. 2940 PRINT"THAT'S RIGHT"
  172. 2950 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  173. 2960 GOSUB 6500
  174. 2970 AA=0
  175. 2980 FOR I=1 TO 3000:NEXT I
  176. 2990 IF O+2=4 THEN GOTO 3020
  177. 3000 PRINT"[147]HERE IS PUZZLE #"O+2
  178. 3010 FOR I=1 TO 2000:NEXT I
  179. 3020 O=O+1
  180. 3030 IF L(K)<200 THEN L(K)=200
  181. 3040 P(K)=P(K)+L(K)
  182. 3050 FOR I=1 TO B
  183. 3060 L(I)=0
  184. 3070 NEXT I
  185. 3080 K=O+1:IF K>B THEN K=1
  186. 3090 IF O=3 THEN GOTO 7000
  187. 3100 GOSUB 4500
  188. 3110 GOSUB 4000
  189. 3120 GOTO 2520
  190. 3130 IF I$<>"B" THEN GOTO 3350
  191. 3140 IF L(K)<250 AND T(K)<>0 THEN  GOSUB 5000
  192. 3150 IF L(K)<250 THEN PRINT"":GOTO 2630
  193. 3160 PRINT"[145]WHAT VOWEL DO YOU WANT TO BUY ?"
  194. 3170 GET L$:IF L$="" THEN 3170
  195. 3180 IF L$<>"A"ANDL$<>"E"ANDL$<>"I"ANDL$<>"O"ANDL$<>"U"THEN 3170
  196. 3190 FOR I=1 TO 26
  197. 3200 IF K$(I)=L$ THEN K$(I)="*":GOTO 3270
  198. 3210 NEXT I
  199. 3220 PRINT"[145]THAT'S BEEN USED                     ":FOR I=1 TO 1520:NEXT I
  200. 3230 L(K)=L(K)-250
  201. 3240 IF T(K)<>0 THEN GOSUB 5000
  202. 3250 K=K+1:IF K=B+1 THEN K=1
  203. 3260 PRINT"":GOTO 2630
  204. 3270 L(K)=L(K)-250:Z=0
  205. 3275 PRINT""
  206. 3280 FOR I=1 TO LEN(F$(C))
  207. 3290 IF L$=G$(I) THEN Z=Z+1:PRINT"[129]";:PRINTTAB(I-1);L$;
  208. 3300 NEXT I
  209. 3310 PRINT"";
  210. 3320 IFZ=0ANDT(K)<>0 THEN PRINT"":GOSUB 5000
  211. 3330 IF Z=0 THEN K=K++1:IF K=B+1 THEN K=1
  212. 3340 Z=0: PRINT"":GOTO 2630
  213. 3350 PRINT"[145][145][145][145]THE WHEEL IS SPINNING, PUSH A KEY TO    STOP IT.                    "
  214. 3360 PRINT:PRINT"                ":M$="":S=0:R=RND(0):R=INT(RND(1)*20)+1
  215. 3380 IF R=1 THEN M$="BANKRUPT"
  216. 3390 IF R=12 THEN M$="FREE SPIN"
  217. 3400 IF R=20 THEN M$="LOOSE-A-TURN"
  218. 3410 IF R=4 THEN S=5000
  219. 3420 IF R=5 THEN S=1000
  220. 3430 IF R=6 THEN S=750
  221. 3440 IF R=7 THEN S=700
  222. 3450 IF R=8 THEN S=600
  223. 3460 IF R=9 THEN S=500
  224. 3470 IF R=10 THEN S=250
  225. 3480 IF R=11 THEN S=400
  226. 3490 IF R=2 THEN S=350
  227. 3500 IF R=13 THEN S=300
  228. 3510 IF R=14 THEN S=100
  229. 3520 IF R=15 THEN S=150
  230. 3530 IF R=16 THEN S=800
  231. 3540 IF R=17 THEN S=900
  232. 3550 IF R=18 THEN S=950
  233. 3560 IF R=19 THEN S=3000
  234. 3570 IF R=3 THEN S=1500
  235. 3572 IF S=0 THEN PRINT M$"               [145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  236. 3573 IF S<>0 THEN PRINT S"[157]               [145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  237. 3575 GET N$:IF N$="" THEN 3360
  238. 3580 IF S<>0THENPRINT"[145][145]YOU LANDED ON"S"[157]                               ":GOTO3600
  239. 3590 PRINT"[145][145]YOU LANDED ON "M$"                            "
  240. 3600 FOR I= 1 TO 1000:NEXT I
  241. 3610 IF M$="BANKRUPT"ANDT(K)<>0 THEN GOSUB 5000
  242. 3620 IF M$="BANKRUPT" THEN L(K)=0:K=K+1:IF K=B+1 THEN K=1
  243. 3630 IF M$="BANKRUPT" THEN PRINT"":GOTO 2630
  244. 3640 IF M$="LOOSE-A-TURN" AND T(K)<>0 THEN GOSUB 5000
  245. 3650 IF M$="LOOSE-A-TURN" THEN K=K+1:IF K=B+1 THEN K=1
  246. 3660 IF M$="LOOSE-A-TURN" THEN PRINT"":GOTO 2630
  247. 3663 IFM$="FREE SPIN"THENT(K)=T(K)+1:PRINT"[145]OK[145]":FORI=1TO1500:NEXTI:PRINT"":GOTO3350
  248. 3665 PRINT"WHAT LETTER WOULD YOU LIKE"
  249. 3670 GET O$:IF O$="" THEN 3670
  250. 3680 IFO$="A"ORO$="E"ORO$="I"ORO$="O"ORO$="U"THEN3670
  251. 3690 FOR I=1 TO 26
  252. 3700 IF K$(I)=O$ THEN K$(I)="*":GOTO 3763
  253. 3710 NEXT I
  254. 3720 PRINT"[145]THAT'S BEEN USED                 ":FOR I=1 TO1750:NEXT I
  255. 3730 IF T(K)<>0 THEN GOSUB 5000
  256. 3740 K=K+1:IF K=B+1 THEN K=1
  257. 3750 PRINT""
  258. 3760 GOTO 2630
  259. 3763 PRINT""
  260. 3765 FOR I=1 TO LEN(F$(C))
  261. 3767 IF O$=G$(I) THEN G(C)=G(C)-1:U=U+1:PRINT"[129]";:PRINTTAB(I-1);O$;
  262. 3768 NEXT I
  263. 3770 PRINT"";
  264. 3780 X=U*S
  265. 3790 L(K)=L(K)+X
  266. 3800 PRINT"[145][145][145][145][145]"
  267. 3810 IF U=0 AND T(K)<>0 THEN PRINT"":GOSUB 5000
  268. 3820 IF U=0 THEN K=K+1:IF K=B+1 THEN K=1
  269. 3830 U=0
  270. 3840 PRINT"":GOTO 2630
  271. 4000 REM *** FILL IN ALPHABET ***
  272. 4010 K$(1)="A"
  273. 4020 K$(2)="B"
  274. 4030 K$(3)="C"
  275. 4040 K$(4)="D"
  276. 4050 K$(5)="E"
  277. 4060 K$(6)="F"
  278. 4070 K$(7)="G"
  279. 4080 K$(8)="H"
  280. 4090 K$(9)="I"
  281. 4100 K$(10)="J"
  282. 4110 K$(11)="K"
  283. 4120 K$(12)="L"
  284. 4130 K$(13)="M"
  285. 4140 K$(14)="N"
  286. 4150 K$(15)="O"
  287. 4160 K$(16)="P"
  288. 4170 K$(17)="Q"
  289. 4180 K$(18)="R"
  290. 4190 K$(19)="S"
  291. 4200 K$(20)="T"
  292. 4210 K$(21)="U"
  293. 4220 K$(22)="V"
  294. 4230 K$(23)="W"
  295. 4240 K$(24)="X"
  296. 4250 K$(25)="Y"
  297. 4260 K$(26)="Z"
  298. 4270 RETURN
  299. 4500 REM *** RANDOM A PUZZLE ***
  300. 4510 C=RND(0):C=INT(RND(1)*117)+1
  301. 4520 IF C=D OR C=E OR C=F OR C=Y THEN 4510
  302. 4530 IF O+1=1 THEN D=C
  303. 4540 IF O+1=2 THEN E=C
  304. 4550 IF O+1=3 THEN F=C
  305. 4560 IF O+1=4 THEN Y=C
  306. 4570 Q=0
  307. 4580 FOR I=1 TO LEN(F$(C))
  308. 4590 G$(I)=MID$(F$(C),I,1)
  309. 4600 NEXT I
  310. 4610 RETURN
  311. 5000 REM *** FREE SPIN ***
  312. 5010 PRINT"DO YOU WANT TO USE YOUR FREE SPIN"
  313. 5015 PRINT"                                     [145][145][145][145][145]"
  314. 5020 GET P$:IF P$<>"Y" AND P$<>"N" THEN 5020
  315. 5030 IF P$="N" THEN RETURN
  316. 5040 IF M$="BANKRUPT" THEN L(K)=0
  317. 5050 T(K)=T(K)-1
  318. 5060 PRINT""
  319. 5070 GOTO 2630
  320. 5500 REM *** VOWEL MUSIC ***
  321. 5510 FOR I=1 TO 10
  322. 5520 V=54296:F=54273
  323. 5530 POKE V,15:POKE 54276,33
  324. 5540 POKE F,10:POKE F,40:POKE F,70
  325. 5550 POKE V,0
  326. 5560 NEXT I
  327. 5570 PRINT"YOU HAVE ALL VOWELS LEFT[145]"
  328. 5573 PRINT
  329. 5575 PRINT"                                   [145][145][145]"
  330. 5580 FOR I= 1 TO 2300:NEXT I
  331. 5590 Q=1:AA=1
  332. 5600 RETURN
  333. 6000 REM *** WINNING MUSIC ***
  334. 6010 S=54272:FOR SW=S TO S+24:POKE SW,0:NEXT
  335. 6020 POKE S+24,15
  336. 6030 POKE S+2,0
  337. 6040 POKE S+3,0
  338. 6050 POKE S+5,0
  339. 6060 POKE S+6,240
  340. 6070 DR=0:N1=0:N2=0
  341. 6080 AA=AA+1
  342. 6090 FOR I=1 TO 15
  343. 6100 DR=250
  344. 6110 READ N1,N2
  345. 6120 POKE S+1,N1:POKE S,N2
  346. 6130 POKE S+4,17
  347. 6140 FOR Z=1 TO DR/8:NEXT Z
  348. 6150 POKE S+4,16
  349. 6160 FOR T=1 TO 50:NEXT T
  350. 6170 IF I=18 THEN GH=1
  351. 6180 IF BC=1 THEN RETURN
  352. 6190 NEXT I
  353. 6200 RETURN
  354. 6500 REM *** GRAPHICS ***
  355. 6510 BB=0:BA=0:PRINT:PRINT"";
  356. 6520 BC=1:GOSUB 6000
  357. 6530 IF BB<>0 THEN GOSUB 6090
  358. 6540 IFBB=15THENPRINTTAB(5);"        [205] [205]    [205][205][205][206][206][206]  [205][205][206][206]  [206] [206] ":GOTO6560
  359. 6550 PRINT"        [205] [205]    [205][205][205][206][206][206]  [205][205][206][206]  [206] [206]      "
  360. 6560 IFBB=15THENPRINTTAB(5);"       [205] [205] [205]    [205][205][206][206]    [205][206]  [206] [206] [206]": GOTO 6580
  361. 6570 PRINT"       [205] [205] [205]    [205][205][206][206]    [205][206]  [206] [206] [206]     "
  362. 6580 IFBB=15THENPRINTTAB(5);"        [205] [205] [205]    [205][206]        [206] [206] [206]":GOTO 6600
  363. 6590 PRINT"        [205] [205] [205]    [205][206]        [206] [206] [206]     "
  364. 6600 IFBB=15THENPRINTTAB(5);"         [205] [205] [205]       [205][205][206][206] [206] [206] [206] ":GOTO 6620
  365. 6610 PRINT"         [205] [205] [205]       [205][205][206][206] [206] [206] [206]     "
  366. 6620 IFBB=15THENPRINTTAB(5);"          [205] [205] [205]    [206][205] [205][206] [206] [206] [206]  ":GOTO 6640
  367. 6630 PRINT"          [205] [205] [205]    [206][205] [205][206] [206] [206] [206]     "
  368. 6640 IFBB=15THENPRINTTAB(5);"           [205] [205] [205]  [206]  [205]  [206] [206] [206]  ":GOTO 6660
  369. 6650 PRINT"           [205] [205] [205]  [206]  [205]  [206] [206] [206]     "
  370. 6660 IFBB=15THENPRINTTAB(5);"            [205] [205] [205][206]    [205][206] [206] [206]  ":GOTO 6680
  371. 6670 PRINT"            [205] [205] [205][206]    [205][206] [206] [206]     "
  372. 6680 IFBB=15THENPRINTTAB(5);"             [183][183][183][183][183][183][183][183][183][183][183][183][183][183]   ": GOTO 6700
  373. 6690 PRINT"             [183][183][183][183][183][183][183][183][183][183][183][183][183][183]     "
  374. 6700 BB=BB+1
  375. 6710 IF BB=1 THEN PRINT"[144]";
  376. 6720 IF BB=2 THEN PRINT"[159]";
  377. 6730 IF BB=3 THEN PRINT"[156]";
  378. 6740 IF BB=4 THEN PRINT"";
  379. 6750 IF BB=5 THEN PRINT"";
  380. 6760 IF BB=6 THEN PRINT"[158]";
  381. 6770 IF BB=7 THEN PRINT"[129]";
  382. 6780 IF BB=8 THEN PRINT"[149]";
  383. 6790 IF BB=9 THEN PRINT"[150]";
  384. 6800 IF BB=10 THEN PRINT"[151]";
  385. 6810 IF BB=11 THEN PRINT"[152]";
  386. 6820 IF BB=12 THEN PRINT"[153]";
  387. 6830 IF BB=13 THEN PRINT"[154]";
  388. 6840 IF BB=14 THEN PRINT"[155]";
  389. 6850 REM FOR I=1 TO  5:NEXT I
  390. 6860 IF BA=7 THEN GOTO 6920
  391. 6870 IF BB=16 THEN BB=14:BA=BA+1:PRINT"[158]";
  392. 6880 IF BB=15 THEN PRINT"";
  393. 6890 PRINT"[145][145][145][145][145][145][145][145][145]"
  394. 6910 GOTO 6530
  395. 6920 BA=0:BB=0:BC=0:PRINT"";:RETURN
  396. 7000 REM *** BONUS ROUND ***
  397. 7005 V=0
  398. 7010 FOR I=1 TO B
  399. 7020 IF P(I)>V THEN V=P(I):W=I
  400. 7030 NEXT I
  401. 7040 PRINT"[147]"
  402. 7050 PRINT"BONUS ROUND"
  403. 7060 PRINT""
  404. 7070 PRINT""A$(W)"[146] GETS TO PLAY THE BONUS ROUND.  THE     TOTAL SCORES WERE:"
  405. 7080 FOR I=1 TO B
  406. 7090 PRINT A$(I),P(I)
  407. 7100 NEXT I
  408. 7110 FOR I=1 TO 6000:NEXT I:PRINT"[147]"
  409. 7120 AA$(1)="SPORTS CAR":AA$(2)="DIAMOND RING":AA$(3)="TRIP TO DISNEY WORLD"
  410. 7130 AA$(4)="GOLD WATCH":AA$(5)="MOTERCYCLE WITH SIDE CAR":AA$(6)="TRIP TO HAWII
  411. 7140 AA$(7)[178]"SEASON PASS TO SIX FLAGS":AA$(8)[178]"STATION WAGON"
  412. 7150 AA$(9)[178]"TRAVELING CAMPER":AA$(10)[178]"SAILBOAT"
  413. 7160 [153]"STOP";
  414. 7170 AB(1)[178][181]([187](1)[172]10)[170]1
  415. 7180 AB(2)[178][181]([187](1)[172]10)[170]1
  416. 7190 [139] AB(2)[178]AB(1) [167] 7180
  417. 7200 AB(3)[178][181]([187](1)[172]10)[170]1
  418. 7210 [139] AB(3)[178]AB(2) [176] AB(3)[178]AB(1) [167] 7200
  419. 7220 [153]"LOAD"
  420. 7230 [153]"THESE ARE THE PRIZES YOU MAY PLAY FOR"
  421. 7240 [153]"";
  422. 7250 [139] AC[178]3 [167] [153]"";
  423. 7260 [153] AA$(AB(1))
  424. 7270 [153]"STOP";
  425. 7280 [139] AC[178]1 [167] [153]"";
  426. 7290 [153] AA$(AB(2)):[153]"STOP";
  427. 7300 [139] AC[178]2 [167] [153]"";
  428. 7310 [153] AA$(AB(3))
  429. 7320 [153]"STOP";
  430. 7330 [153]"PLEASE PICK ONE (PRESS SPACE BAR TO     SELECT, RETURN WHEN ";
  431. 7335 [153]"YOUR FINISHED) !!!"
  432. 7340 [161] AD$:[139] AD$[179][177]" "[175] AD$[179][177] [199](13) [167] 7340
  433. 7350 [139] AD$[178][199](13) [167] 7380
  434. 7360 AC[178]AC[170]1:[139] AC[178]4 [167] AC[178]1
  435. 7370 [153]"ONONONONONONONONON":[137] 7250
  436. 7380 [139] AC[178]0 [176] AC[170]1[178]4 [167] AE$[178]AA$(AB(1))
  437. 7390 [139] AC[170]1[178]2 [167] AE$[178]AA$(AB(2))
  438. 7400 [139] AC[170]1[178]3 [167] AE$[178]AA$(AB(3))
  439. 7410 [153]""
  440. 7420 [153]"LOAD"
  441. 7430 [153]"HERE IS THE PUZZLE "A$(W)
  442. 7440 [141] 4500
  443. 7450 [153]"IT IS (A) "H$(C)
  444. 7460 [153]""
  445. 7470 [129] I[178]1 [164] [195](F$(C))
  446. 7480 [139] G$(I)[178]" "[176]G$(I)[178]"'"[176]G$(I)[178]"-" [167] [153] G$(I);:[137] 7500
  447. 7490 [153]"(null)";
  448. 7500 [130] I
  449. 7510 [153]""
  450. 7520 [153]"ENTER THE 5 CONSONANTS YOU WANT"
  451. 7530 [129] I[178]1 [164] 5
  452. 7540 [161] S$(I):[139] S$(I)[178]"" [167] 7540
  453. 7550 [139]S$(I)[178]"A"[176]S$(I)[178]"E"[176]S$(I)[178]"I"[176]S$(I)[178]"O"[176]S$(I)[178]"U"[167] 7540
  454. 7555 [129] J[178]1 [164] 5
  455. 7560 [139] S$(J)[178]S$(I) [175] J[179][177]I [167] 7540
  456. 7570 [130] J
  457. 7580 [153] I"="S$(I)" ";
  458. 7590 [130] I
  459. 7600 [153]"           NOW, ENTER THE 1 VOWEL YOU WANT""
  460. 7610 GET T$:IF T$<>"A"ANDT$<>"E"ANDT$<>"I"ANDT$<>"O"ANDT$<>"U" THEN7610
  461. 7620 PRINT"[145][145][145][145]6 ="T$"";:PRINT""
  462. 7630 FOR I=1 TO LEN(F$(C))
  463. 7640 IF S$(1)=G$(I)ORS$(2)=G$(I)ORS$(3)=G$(I)THENPRINT"[129]";:PRINTTAB(I-1);G$(I);
  464. 7650 IFS$(4)=G$(I)ORS$(5)=G$(I)ORT$=G$(I)THENPRINT"[129]";:PRINTTAB(I-1);G$(I);
  465. 7660 NEXT I
  466. 7670 PRINT"";:PRINT""
  467. 7680 PRINT"YOU HAVE 60 SECONDS TO TYPE IN THE ":PRINT H$(C)"."
  468. 7690 TI$="000000"
  469. 7700 INPUT"                              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";Q$
  470. 7710 IF Q$=F$(C)ANDTI$<="000060" THEN GOTO 7780
  471. 7720 IF Q$<>F$(C) AND TI$<="000060" THEN PRINT"[145]SORRY,THAT'S WRONG.  TRY AGAIN[145]"
  472. 7730 IF Q$<>F$(C) AND TI$<="000060" THEN FOR I=1 TO 250:NEXT I:GOTO 7700
  473. 7740 IFQ$<>F$(C)ANDTI$>"000060"THENPRINT"[145]OUT OF TIME. THE ANSWER WAS"
  474. 7750 IFQ$<>F$(C)ANDTI$>"000060"THEN PRINTF$(C):GOTO 7810
  475. 7760 IF Q$=F$(C)ANDTI$>"000060"THENPRINT"[145]THAT IS RIGHT, BUT YOU ARE OUT OF ";
  476. 7770 IF Q$=F$(C)ANDTI$>"000060"THEN PRINT"TIME.":GOTO 7810
  477. 7780 PRINT"[147]"
  478. 7790 PRINT"YOU WON THE BONUS ROUND":PRINT"AND THE GREAT "AE$
  479. 7800 GOSUB 6000
  480. 7810 FOR I=1 TO 2000:NEXT I
  481. 8000 REM *** GOODBYE SECTION ***
  482. 8010 PRINT"[147]"
  483. 8020 PRINT"DO YOU WANT TO PLAY SPIN THAT WHEEL[146]      AGAIN ?"
  484. 8030 GET R$:IF R$<>"Y" AND R$<>"N" THEN 8030
  485. 8040 IF R$="Y" THEN CLR:RESTORE:RUN
  486. 8050 PRINT"[147]"
  487. 8060 PRINT""
  488. 8070 FOR I=1 TO 20
  489. 8080 PRINT"GOODBY[146]"
  490. 8085 FOR J=1 TO 200:NEXT J
  491. 8090 POKE 53280,INT(RND(0)*15)+1
  492. 8100 POKE 53281,INT(RND(0)*15)+1
  493. 8110 PRINT"[144]"
  494. 8120 NEXT I
  495. 8130 POKE 650,0
  496. 8140 PRINT CHR$(142):PRINT CHR$(9)
  497. 8150 POKE 53280,14
  498. 8160 POKE 53281,6
  499. 8170 PRINT"[154]"
  500. 8180 PRINT"[147]";
  501. 8190 PRINT
  502. 8200 PRINT"    **** COMMODORE 64 BASIC V2 ****"
  503. 8210 PRINT
  504. 8220 PRINT" 64K RAM SYSTEM  38911 BASIC BYTES FREE
  505. 8230 [128]
  506. 8500 [143] *** PUZZLE DATA ***
  507. 8510 [131]  "MICKEY MOUSE","FICTIONAL CHARACTER ",6,"HOW NOW BROWN COW",PHRASE,10
  508. 8520 [131] "A PENNY SAVED IS A PENNY EARNED",PHRASE,15,"ROY ROGERS",PERSON,6
  509. 8530 [131] "A STITCH IN TIME SAVES NINE",PHRASE,13,"ABRAHAM LINCOLN",PERSON,9
  510. 8540 [131] "BIRDS OF A FEATHER FLOCK TOGETHER",PHRASE,18,"WALT DISNEY",PERSON,7
  511. 8550 [131] "GEORGE WASHINGTON",PERSON,10,"BENJAMIN FRANKLIN",PERSON,11
  512. 8560 [131] "DAVY CROCKETT",PERSON,9,"CHRISTOPHER COLUMBUS",PERSON,13
  513. 8570 [131] "WONDER WOMAN","FICTIONAL CHARACTER ",7,"ADOLF HITLER",PERSON,7
  514. 8580 [131] "RAGGEDY ANN","FICTIONAL CHARACTER ",7,"ASTRONAUT",PERSON,5
  515. 8590 [131] "BUGS BUNNY","FICTIONAL CHARACTER ",7,"THE WIZARD OF OZ","TITLE ",8
  516. 8600 [131] "SIZZORS AND TAPE",THINGS,9,"SLICK AS A WHISTLE",PHRASE,10
  517. 8610 [131] "LORETTA LYNN",PERSON,8,"NEW YORK CITY","PLACE ",8
  518. 8620 [131]"YELLOW ROSE OF TEXAS","TITLE ",10,"KENTUCKY FRIED CHICKEN","THING ",14
  519. 8630 [131] "YELLOWSTONE NATIONAL PARK","PLACE ",14,"SUMMER OLYMPICS","EVENT ",10
  520. 8640 [131] "WINTER OLYMPICS","EVENT ",10,"RISE AND SHINE",PHRASE,7
  521. 8650 [131] "KENTUCKY DERBY","EVENT ",10,"WORLD SERIES","EVENT ",7
  522. 8660 [131] "SUPER BOWL","EVENT ",6,"RED ROSES FOR A BLUE LADY","TITLE ",12
  523. 8670 [131] "WILLY WONKA AND THE CHOCOLATE FACTORY","TITLE ",21
  524. 8680 [131] "GEORGE STRAIT",PERSON,7,"WASHINGTON MONUMENT","PLACE ",12
  525. 8690 [131] "HOLLYWOOD CALIFORNIA","PLACE ",11,"GOLDEN GATE BRIDGE","PLACE ",10
  526. 8700 [131] "JAMES BOWIE",PERSON,5,"HONESTY IS THE BEST POLICY",PHRASE,15
  527. 8710 [131]"THE EARLY BIRD GETS THE WORM",PHRASE,16,"ANTIQUE AUTOMOBILE","THING ",7
  528. 8720 [131] "PRACTICE WHAT YOU PREACH",PHRASE,13,"SAM HOUSTON",PERSON,6
  529. 8730 [131]"DON'T PUT ALL YOUR EGGS IN ONE BASKET",PHRASE,18,"THE ALAMO","PLACE ",4
  530. 8740 [131] "THAT'S A HORSE OF A DIFFERENT COLOR",PHRASE,17
  531. 8750 [131] "STEPHEN AUSTIN",PERSON,8,"THE SOUND OF MUSIC","TITLE ",9
  532. 8760 [131] "SCHOOL BOOKS",THINGS,7,"INDIAN TEPEE","THING ",5
  533. 8770 [131] "READING WRITING AND ARITHMETIC",PHRASE,17,"ROCKY","TITLE ",4
  534. 8780 [131] "A DECK OF CARDS","THING ",8,"A FISHING POLE","THING",7
  535. 8790 [131] "DOLLY PARTON",PERSON,8,"REBA MCENTIRE",PERSON,7
  536. 8800 [131] "SHORT CIRCUIT",TITLE,8,"MEXICCN JUMPING BEANS",THINGS,12
  537. 8810 [131] "TOM AND JERRY","FICTIONAL CHARACTERS",8,BONANZA,TITLE,4
  538. 8820 [131]"THE LONE RANGER","FICTIONAL CHARACTER",8,"THE TEN COMMANDMENTS",TITLE,13
  539. 8830 [131] "RAWHIDE",TITLE,4,"RUB A DUB DUB THREE MEN IN A TUB",PHRASE,14
  540. 8840 [131] "RUB A DUB DOGGIE",THINGS,7,"WHEEL OF FORTUNE",TITLE,8
  541. 8850 [131] "KENNY ROGERS",PERSON,8,"WHITE-TAILED DEER",THING,8
  542. 8860 [131] "COTTON-TAIL RABBIT",THING,10,"RING-TAILED RACCOON",THING,10
  543. 8870 [131] "LOP-EARED RABBIT",THING,8,"ORIENTAL RUG",THING,6
  544. 8880 [131] "HOME SWEET HOME",PHRASE,7,"DESIGNER JEANS",THINGS,8
  545. 8890 [131] "COLOR TELEVISION",THING,8,"DON'T SIT UNDER THE APPLE TREE",TITLE,15
  546. 8900 [131]"PECOS BILL","FICTIONAL CHARACTER",6,"PAUL BUNYAN","FICTIONAL CHARACTER",6
  547. 8910 [131]"TEXAS LONGHORN",THING,9,"NECESSITY IS THE MOTHER OF INVENTION",PHRASE,19
  548. 8920 [131] "FAMILY PORTRAIT",THING,9,"CHOCOLATE COVERED",THING,12
  549. 8930 [131] "JOHNNY APPLESEED","FICTIONAL CHARACTER",10,"COCKER SPANIAL",THING,8
  550. 8940 [131] "CASEY JONES","FICTIONAL CHARACTER",6,"THE BRADY BUNCH",TITLE,10
  551. 8950 [131] "BEGINNERS LUCK IS GOOD LUCK",PHRASE,15
  552. 8960 [131] "LITTLE HOUSE ON THE PRAIRIE",TITLE,12,"COMMODORE COMPUTER",THING,10
  553. 8970 [131] "THE DUKES OF HAZZARD",TITLE,11,"BUTTONS AND BOWS",THINGS,10
  554. 8980 [131] "KEEP UP THE GOOD WORK",PHRASE,10,"STRAIGHT AS AN ARROW",PHRASE,11
  555. 8990 [131] "MORE TROUBLE THAN IT'S WORTH",PHRASE,15,"WHITE PICKET FENCE",THING,10
  556. 9000 [131] "A HELP OR A HINDRANCE",PHRASE,10,"ROCKY MOUNTAINS",PLACE,9
  557. 9010 [131] "FINDERS KEEPERS LOOSERS WEEPERS",PHRASE,17,"SMOKY MOUNTAINS",PLACE,9
  558. 9020 [131] "CHIP AND DALE","FICTIONAL CHARACTERS",7,"COUNTRY MUSIC",THING,8
  559. 9030 [131] "APRIL SHOWERS BRING MAY FLOWERS",PHRASE,19,"GRAND CANYON",PLACE,8
  560. 9040 [131] "MID-SUMMER BREEZE",THING,9,"FOOTBALL HELMET",THING,9
  561. 9050 [131] "HARD-BOILED EGG",THING,8,"INDOOR-OUTDOOR THERMOMETER",THING,14
  562. 9060 [131] "HOT AND COLD FAUCET",THING,10,"MAP OF THE UNITED STATES",THING,12
  563. 9070 [131] "WHEN YOU WISH UPON A STAR",TITLE,12,"LIGHTING BUG",THING,8
  564. 9080 [131] "KNOWING IS HALF THE BATTLE",PHRASE,15,"MAGAZINE RACK",THING,7
  565. 9090 [131] "LONG-STEM ROSES",THINGS,9,"ACTIONS SPEAK LOUDER THAN WORDS",PHRASE,17
  566. 9100 [131]"A PICTURE IS WORTH A THOUSAND WORDS",PHRASE,18
  567. 9110 [131] "FAITH WITHOUT WORKS IS DEAD",PHRASE,14
  568. 50000 [143] *** MUSIC DATA ***
  569. 50010 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  570. 50020 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  571. 50030 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  572. 50040 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  573. 50050 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  574. 50060 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  575. 50070 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  576. 50080 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  577. 50090 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  578. 50100 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  579. 50110 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  580. 50120 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  581. 50130 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  582. 50140 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  583. 50150 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  584. 50160 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  585. 50170 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  586. 50180 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  587. 50190 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  588. 50200 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1
  589.